Consumption to Biomass Data - Exploratory Analysis

This dataset covers 17 different fish species that inhabit the Northwest Atlantic. Prey consumption is displayed as a ratio to biomass for the respective species, and is broken down by prey type. Data covers a rough time frame from 1971-2021.

## [1] "C:/Users/hensl/Downloads/NOAA IN FISH! Internship/IN FISH Woods Hole Project"

For the initial step of the exploratory analysis, I wanted to just look at the distribution of the data, prior to anything being removed or edited. The below histograms display the relationships between fish prey consumption and time. Additionally, a plot displaying the relationship between different fish species prey items through time is displayed to see if we can pick out any trends.

Breaking the above plot into a legible format by species, to assess species specific prey consumption over time

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

Doing this same kind of analysis but looking at how the values compare with bottom temperature

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

## `geom_smooth()` using formula = 'y ~ x'

Doing same analysis as above, but after filtering through the data as requested: transforming c:b ratios on a log scale, starting time series in 1981, and removing 0 c:b values

# omitting all 0's from the dataset
rows_to_keep <- data_comb_f$cb > 0.000000000
data_comb_f2 <- data_comb_f[rows_to_keep, ]

# starting time series in 1981 for sensitivity analysis
data_comb_f2 <- data_comb_f %>% 
  filter(year > 1980)

# log transforming c:b ratios 
data_comb_f2$cb <- log(data_comb_f2$cb)

FILTERED VERSION: Breaking the above plots into a legible format by species, to assess species specific prey consumption over time

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 94 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 255 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 423 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 125 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 232 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 351 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 315 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 359 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 276 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 299 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 369 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 203 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 342 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 375 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 328 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 200 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 204 rows containing non-finite values (`stat_smooth()`).

FILTERED VERSIONDoing this same kind of analysis but looking at how the values compare with bottom temperature

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 94 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 255 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 423 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 125 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 232 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 351 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 315 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 359 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 276 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 299 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 369 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 203 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 342 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 375 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 328 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 200 rows containing non-finite values (`stat_smooth()`).

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 204 rows containing non-finite values (`stat_smooth()`).

Bottom Temperature Overview

## `geom_smooth()` using formula = 'y ~ x'